*if "<formula$work>"="" then set formula$work <formula$dir>.work
*echo formula/alumrof   Macroassemblergenerator version 0.82 { > <formula$work>.initmsg }
*echo all Versions and Translations must be FREEWARE ! { >> <formula$work>.initmsg }
*set alias$formula08 <formula$dir> |%|*|0
*if "%0"="" then *echo syntax: { >> <formula$work>.initmsg }
*if "%0"="" then *echo <formula$dir> outputfile inputfile { >> <formula$work>.initmsg }
*if "%0"="" then *echo <x>  this writes the assemblerfile outputfile  { >> <formula$work>.initmsg }
*echo setting defaults: { >> <formula$work>.initmsg }
*echo formula$work points to <formula$work> { >> <formula$work>.initmsg }
*if "<formula$dir>"="" then set formula$dir <obey$dir>
*if "<formula$listlen>"="" then echo formula$listlen not set, I hope 50 is enough  { >> <formula$work>.initmsg }
*if "<formula$listlen>"="" then echo <x> formula$listlen is the length of arrays in formula { >> <formula$work>.initmsg }
*if "<formula$listlen>"="" then echo <x> big inputfiles need big formula$listlen  { >> <formula$work>.initmsg }
*if "<formula$listlen>"="" then set formula$listlen 50
*if "<formula$viewer>"="" then echo formula$viewer not set, useing *run in <formula$dir>.!viewer  { >> <formula$work>.initmsg }
*if "<formula$viewer>"="" then set formula$viewer <formula$dir>.!viewer
*if "<formula$forkview>"="" then echo formula$forkview not set, useing *list in <formula$dir>.!forkview  { >> <formula$work>.initmsg }
*if "<formula$forkview>"="" then set formula$forkview <formula$dir>.!forkview
*if "<formula$pollevery>"="" then echo formula$pollevery not set, used 10 (desktop, middle velocity)  { >> <formula$work>.initmsg }
*if "<formula$pollevery>"="" then echo <x> formula$pollevery < 0 => no wimptasking  { >> <formula$work>.initmsg }
*if "<formula$pollevery>"="" then echo <x> the bigger formula$pollevery is, the bigger is the time between 2 wimppolls  { >> <formula$work>.initmsg }
*if "<formula$pollevery>"="" then set formula$pollevery 10
*if "<formula$minwimpslot>"="" then echo formula$minwimpslot not set using 608K (you may need more) { >> <formula$work>.initmsg }
*if "<formula$minwimpslot>"="" then set formula$minwimpslot 608K
*if "<formula$maxwimpslot>"="" then echo formula$maxwimpslot not set using 608K (you may need more) { >> <formula$work>.initmsg }
*if "<formula$maxwimpslot>"="" then set formula$maxwimpslot 608K
*if "<icon$blocksize>"="" then echo icon$blocksize not set, I hope 110000 is enough { >> <formula$work>.initmsg }
*if "<icon$blocksize>"="" then echo <x> for icon$blocksize 110000 you need a wimpslot of 608K { >> <formula$work>.initmsg }
*if "<icon$blocksize>"="" then set icon$blocksize 110000
*echo increasing formula$listlen needs increasing of icon$blocksize { >> <formula$work>.initmsg }
*echo which needs increasing of formula$min/maxwimpslot { >> <formula$work>.initmsg }
*if "<iconx$path>"="" then *echo warning no path to iconx: I hope iconx is in run$path  { >> <formula$work>.initmsg }
*if "<tla$path>"="" then *echo warning no path to tla:  I hope tla is in run$path  { >> <formula$work>.initmsg }
*echo this file is <formula$work>.initmsg  { >> <formula$work>.initmsg }
*if "%0"="" then *run <formula$viewer>  <formula$work>.initmsg else *run <formula$forkview>  <formula$work>.initmsg
*rmensure FPEmulator 0 echo fpemultor must be loaded for iconx: try to load fpemulator 
*rmensure FPEmulator 0 *rmload <system$path>modules.fpemulator 
*rmensure SharedCLibrary 0 *echo SharedCLibrary must be loaded for iconx: try to load SharedCLibrary
*rmensure SharedCLibrary 0 *rmload <system$path>modules.clib 
*set formula$init true
*quit
